旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 넬컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴엿 납 납 납 KARAKTER EDITOR 납 납 납 냅컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴冒 � PS 31 � 엞bat'96 Cenk Tarhan � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 Merhaba, Program Sanat뇥lar�... Bu seferki program, Turbo Pascal 6.0 ile yaz뛩m뜜 ve grafik ekran뛫da 놹l뜜an bir karakter tan뛪lama program�. Pascal ile program yapan okuyucular뛪뛺뛫 olduk놹 i웙ne yarayaca쭕n� umdu쬾m bu program yard뛪� ile grafik ekran뛫daki karakterleri diledi쬲niz gibi de쬲웪irebiliyor, kendi karakter setinizi olu웪urabiliyorsunuz. Bu i웞em sadece ASCII de쬮ri 128 ile 255 aras뛫da olan karakterler ve Pascal'뛫 "Defaultfont" fontu i뇁n ge놽rli. 엞 anda "kaydet" se놽ne쬲ni kullan뛫ca program sadece o anki karakter tablosunu C: s걊갷걌걆걆 "root" rehberine "karakter.tan" adl� bir dosya olarak kaydediyor. Kodu biraz inceleyerek ve program� istedi쬲niz gibi de쬲웪irerek de쬲웙k isimler alt뛫da de쬲웙k karakter tablolar� olu웪urup bunlar� diske kaydedebilir ve istedi쬲niz zaman Pascal programlar뛫뛺뛫 i놽risinde kullanabilirsiniz. 엍mdi program뛫 i웞eyi웙ne bir de쬲nelim. Pascal, Defaultfont ile karakterleri grafik ekran뛫da g봱걆t걄erken ASCII 128 ve ASCII 255 aras뛫daki karakterlerin bilgisini sistem belle쬲nden almaktad뛯. Bu y걕den de, bu belle쬲n i놽ri쬲ni de쬲웪irerek karakterlerin g봱걆걼lerini de쬲웪irmek m걅k걆d걊. Bu programda ASCII 128 ile ASCII 255 aras뛫daki 8*8'lik karakterlerin bilgileri s뛯al� olarak "karakterler" ad뛫da 1024 bayt uzunlu쬾nda bir "array" i놽risinde tutulmaktad뛯. Bu array'뛫 her eleman� bir karakterin 8 bit'ine yani bir s뛯as뛫a e웙ttir. Bunu bir 봱nekle a뇅ak istiyorum. 셱ne쬲n "b걓걃 e웙t" i웏retini ele alal뛪. Bu i웏retin karakter tablosundaki yeri ASCII 242'dir. Ve bu karakteri tan뛪layan 8 bayt da karakterler array'inde s뛯as뛹la 912, 913, 914, 915, 916, 917, 918 ve 919'uncu baytlar뛡뛯. Bu baytlar� bit seviyesinde inceleresek, karakterlerin a뇥k b봪걅lerinin 1 kapal� b봪걅lerinin de 0 oldu쬾 g봱걄걊. Yani, b걓걃 e웙ttir i웏reti a웏쭕daki tablodaki gibi tan뛪lanm뜜t뛯. 01100000 bayt de쬮ri: 60 array i놽risindeki yeri: 912 00110000 bayt de쬮ri: 48 array i놽risindeki yeri: 913 00011000 bayt de쬮ri: 24 array i놽risindeki yeri: 914 00110000 bayt de쬮ri: 48 array i놽risindeki yeri: 915 01100000 bayt de쬮ri: 60 array i놽risindeki yeri: 916 00000000 bayt de쬮ri: 0 array i놽risindeki yeri: 917 11111100 bayt de쬮ri: 252 array i놽risindeki yeri: 918 00000000 bayt de쬮ri: 0 array i놽risindeki yeri: 919 G봱걄d겎� gibi gerekli array eleman뛫� de쬲웪irerek istedi쬲niz tipte 8*8 bitmap karakterler olu웪urabilirsiniz. Zaten program da bunu yapmaktad뛯. Sadece ufak bir edit봱 yard뛪� ile karakterlerin se뇁mi ve de쬲웪irilmesi kolayla웪뛯뛩m뜜 ve bir de karakter tablosunu kaydetmek, y걃lemek se놽nekleri eklenmi웪ir. Karakter tablosunu kaydetmek de asl뛫da karakterlerler array'inin i놽ri쬲ni diske yazmak ve Karakter tablosunu y걃lemek de diskten daha 봭ce yaz뛩m뜜 say뛩ar� okuyup bu say뛩ar� direkt olarak array'in i뇁ne yazd뛯makt뛯.